home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
IRIX Base Documentation 1998 November
/
IRIX 6.5.2 Base Documentation November 1998.img
/
usr
/
share
/
catman
/
p_man
/
cat3
/
f90
/
adjustl.z
/
adjustl
Wrap
Text File
|
1998-10-30
|
2KB
|
63 lines
ADJUSTL(3I) Last changed: 2-5-98
NNAAMMEE
AADDJJUUSSTTLL - Adjusts a character string to the left
SSYYNNOOPPSSIISS
AADDJJUUSSTTLL (([SSTTRRIINNGG==]_s_t_r_i_n_g))
IIMMPPLLEEMMEENNTTAATTIIOONN
UNICOS, UNICOS/mk, and IRIX systems
SSTTAANNDDAARRDDSS
Fortran 90
DDEESSCCRRIIPPTTIIOONN
The AADDJJUUSSTTLL intrinsic function adjusts a character string to the left,
removes leading blanks, and inserts trailing blanks. It accepts the
following argument:
_s_t_r_i_n_g Must be of type character
AADDJJUUSSTTLL is an elemental function. The name of this intrinsic cannot
be passed as an argument.
RREETTUURRNN VVAALLUUEESS
The result is type character with the same length as _s_t_r_i_n_g.
The value of the result is the same as _s_t_r_i_n_g, except that any leading
blanks have been deleted and the same number of trailing blanks have
been inserted.
EEXXAAMMPPLLEESS
In the following examples, a carat (^^) indicates a blank.
Example 1:
CHARACTER*6 VAR
VAR = ADJUSTL( '^^WORD' )
PRINT *,"VAR='", VAR,"'"
This code segment produces the following output:
VAR='WORD^^'
Example 2:
CHARACTER*29 STRING
STRING = '^^^TEST STRING FOR ADJUSTL^^^'
WRITE(6,1) '>', STRING, '<'
WRITE(6,1) '>', ADJUSTL(STRING), '<'
1 FORMAT(3A)
END
This code returns the following output:
>^^^TEST STRING FOR ADJUSTL^^^<
>TEST STRING FOR ADJUSTL^^^^^^<
SSEEEE AALLSSOO
_I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-2138, for the
printed version of this man page.